home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / _GUICtrlComboGetLBTextLen.au3 < prev    next >
Text File  |  2007-09-08  |  835b  |  27 lines
  1. #include <GuiConstants.au3>
  2. #include <GuiCombo.au3>
  3.  
  4. Opt('MustDeclareVars',1)
  5.  
  6. Dim $Combo,$Btn_Exit,$Status,$msg
  7.  
  8. GuiCreate("ComboBox Get LB Text Len", 392, 254)
  9.  
  10. $Combo = GuiCtrlCreateCombo("", 70, 10, 270, 100,$CBS_SIMPLE)
  11. GUICtrlSetData($Combo,"AutoIt|v3|is|freeware|BASIC-like|scripting|language")
  12. $Btn_Exit = GuiCtrlCreateButton("Exit", 150, 180, 90, 30)
  13. $Status = GUICtrlCreateLabel("",0,234,392,20,BitOR($SS_SUNKEN,$SS_CENTER))
  14. GuiSetState()
  15. While 1
  16.     $msg = GuiGetMsg()
  17.     Select
  18.         Case $msg = $GUI_EVENT_CLOSE Or $msg = $Btn_Exit
  19.             ExitLoop
  20.         Case $msg = $Combo
  21.             If(_GUICtrlComboGetCurSel($Combo) <> $CB_ERR) Then
  22.                 GUICtrlSetData($Status,"Length of Item[" & _GUICtrlComboGetCurSel($Combo) & "] = " & _GUICtrlComboGetLBTextLen($Combo, _GUICtrlComboGetCurSel($Combo)))
  23.             EndIf
  24.     EndSelect
  25. WEnd
  26. Exit
  27.